-- remove after development

on mouseDown
  if the mouseH < the right of sprite the clickon - 16 then
    repeat while the stillDown
      set times = times + 1
      case times of
        1: set theDelta = 1
        10: set theDelta = 2
        20: set theDelta = 4
        30: set theDelta = 8
      end case
      if the shiftdown then set theDelta = - 1
      else set theDelta = theDelta
      set the scrolltop of the member of sprite the clickon = the scrolltop of the member of sprite the clickon + theDelta
    end repeat
  else pass
end

on mouseUp
  global gTextIndex
  if voidP(gTextIndex) then set gTextIndex = [:]
  do "setaprop gTextIndex, #" & the framelabel & "," & the scrolltop of the member of sprite the clickon
  if the optionDown then 
    -- update the script
    put the scripttext of member "Internal Tables" into it
    put line 1 to 2 of it into txtHead
    delete line 1 to 3 of it
    put return & "set gTextIndex = " & string(gTextIndex) & return after txtHead
    put txthead & it into newScript
    set the scripttext of member "internal tables" = newscript
  end if
end